**qui{
replace ave_invi_i=$ave_invi_i in $i
replace ave_mtr=$mtr in $i
replace ave_mtr_zero=$mtr_zero in $i
replace N=e(N) in $i
replace N_cg_8593=$N_cg_8593 in $i
replace cg_8593_2=$cg_8593 in $i
replace version=$version in $i
forvalues t=1(1)3 {

replace b`t'=_b[_T_event_`t'] in $i
replace se`t'=_se[_T_event_`t'] in $i
}
forvalues t=5(1)10 {

replace b`t'=_b[_T_event_`t'] in $i
replace se`t'=_se[_T_event_`t'] in $i
}
global i = $i+1
**}



